home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / answrbok / 3_14.lha / 3_14 / 3_14a2.c < prev    next >
Text File  |  1993-08-08  |  520b  |  21 lines
  1. * Copyright (c) 1990 by AT&T Bell Telephone Laboratories, Incorporated. */
  2. * The C++ Answer Book */
  3. * Tony Hansen */
  4. * All rights reserved. */
  5. ase '*': case '+': case '(': case '=':    // same as before
  6. ase '/': case '-': case ')': case ',':
  7. ase '{': case '}':            // new
  8.    return curr_tok=ch;
  9.  
  10. ase '$':        // new, look for function args
  11.    if (!cin.get(ch))    return curr_tok = END;
  12.  
  13.    if (!isdigit(ch))
  14. {
  15. error("$ must be followed by digit");
  16. return curr_tok = PRINT;
  17. }
  18.  
  19.    number_value = ch - '0';
  20.    return curr_tok = DOL;
  21.